home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / -websites- / whdload / games / epic.lha / epic-install / Install_MissionDisk < prev    next >
Text File  |  1998-12-16  |  797b  |  40 lines
  1.  
  2. ;****************************
  3. ;----------------------------
  4. ; Checks if given program is reachable via the path
  5. ; if not abort install
  6. ; IN:  #program - to check
  7. ; OUT: -
  8.  
  9. (procedure P_chkrun
  10.   (if
  11.     (= 0 (run ("cd SYS:\nWhich %s" #program)))
  12.     ("")
  13.     (abort ("You must install \"%s\" first !\nIt must be accessible via the path.\nYou can find it in the whdload package." #program))
  14.   )
  15. )
  16.  
  17. (set @default-dest
  18.   (askdir
  19.     (prompt ("Where is Epis installed ?\n"))
  20.     (help @askdir-help)
  21.     (default @default-dest)
  22.     (disk)
  23.   )
  24. )
  25.  
  26. ;----------------------------
  27.  
  28. (copyfiles
  29.   (help @copyfiles-help)
  30.   (source ("Epic_Mission:mission"))
  31.   (dest @default-dest)
  32. )
  33.  
  34. (copyfiles
  35.   (help @copyfiles-help)
  36.   (source ("%s.inf" @app-name))
  37.   (newname ("%s.info" @app-name))
  38.   (dest @default-dest)
  39. )
  40.